home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
zbpc_460.zip
/
GRAPHICS.EXE
/
MCGA.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-03-18
|
780b
|
19 lines
MODE 23 : FG = 1 : BO = 1 : CIRCLE 900,100,50
"Display"
PRINT@(0,7)"Foreground","Background","Border"
PRINT@(0,9)FG,BG,BO: CIRCLE 100,600,50
PRINT@(0,11)"F to increase","G to increase","B to inc"
PRINT@(0,12)"f to decrease","g to decrease","b to dec"
PRINT@(9,14)"Spacebar to exit"
"Keycheck"
X$ = INKEY$ : IF X$="" GOTO "Keycheck"
IF X$ = "F" FG = FG + 1 : IF FG > 255 FG = 0
IF X$ = "f" FG = FG - 1 : IF FG < 0 FG = 255
IF X$ = "G" BG = BG + 1 : IF BG > 255 BG = 0
IF X$ = "g" BG = BG - 1 : IF BG < 0 BG = 255
IF X$ = "B" BO = BO + 1 : IF BO > 255 BO = 0
IF X$ = "b" BO = BO - 1 : IF BO < 0 BO = 255
IF X$ = " " MODE 3 : END=256
COLORFG,BG,BO : GOTO "Display"